on PupsOnOff list
  if list = "AllOff" then
    put "-1,-2,-3,-4,-5,-6,-7,-8,-9,-10,-11,-12,-13,-14,-15,-16,-17,-18,-19,-20,-21,-22,-23,-24,-25,-26,-27,-28,-29,-30,-31,-32,-33,-34,-35,-36,-37,-38,-39,-40,-41,-42,-43,-44,-45,-46,-47,-48" into list
  end if
  if item 1 of list = empty then exit
  put the number of items in list into endme
  repeat with x = 1 to  endme
    put item x of list into hold
    put value(hold) into changesprite
    if changesprite < 0 then
      puppetsprite abs(changesprite),false
    else 
      puppetsprite changesprite,true
    end if
  end repeat
  updatestage
end PupsOnOff

on RandList which
  set RList = []
  set Used = []
  set MyPos = 0
  set TheItem = 0
  put count(which) into stop
  repeat with x = 1 to stop
    --put x
    --put MyPos
    put Random(count(which)) into MyPos
    put GetAt(which,MyPos) into TheProp
    
    --put TheProp
    --put TheValue
    Add RList,TheProp
    DeleteAt value(which),MyPos
  end repeat
  return RList
end RandList

    
on PlaySoundList Chan
  global SoundsPath,ASoundList
  if Chan < 1 then
    put 1 into Chan
  end if
  put 1 into x
  repeat while x <= count(ASoundList)
    if the mouseDown then 
      Sound stop  Chan
      exit
    end if
    if soundBusy(Chan) = false then
      put getAt(ASoundlist,x) into mySound
      if the number of cast mySound > 0 then 
        puppetsound mySound
        updatestage
        set x = x+1
      else
        sound Playfile Chan, SoundsPath & mySound
        set x = x+1
      end if
    end if
  end repeat
end PlaySoundList